home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0114_Fast Add String function.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  365 b   |  29 lines
  1. function addString(st1,st2 : string):string;assembler;
  2.  
  3.  asm
  4.   push DS
  5.   cld
  6.   lds SI,st1
  7.   les DI,@result
  8.   mov BX,DI
  9.   lodsb
  10.   mov DL,255
  11.   sub DL,AL
  12.   xor AH,AH
  13.   mov CX,AX
  14.   stosb
  15.   repz
  16.   movsb
  17.   lds SI,st2
  18.   lodsb
  19.   cmp AL,DL
  20.   jna @nooverflow
  21.   mov AL,DL
  22.   @nooverflow:
  23.   mov CX,AX
  24.   repz
  25.   movsb
  26.   add ES:[BX],AL
  27.   pop DS
  28.  end;
  29.